Clock tutorial code
--------------------------------
 
 
DefProcTick
Rem Called when window gets an null event
Rem Declare local variable
Local tic$
Rem Put rightmost 8 characters from system variable Time$ into tic$
tic$=Right$(Time$,8)
Rem Check tic$ against time currently displayed in global variable old$
Rem If different update clock$ and make old$ the same
If tic$<>global:old$ Then
Main:clock$=tic$
global:old$=tic$
EndIf
Endproc